home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 106 - Proboard KEY Floppy - Must be in Drive 1.dsk / TIMETRACKER.MOD / TIMETRACKER.10 next >
Text File  |  1989-06-04  |  5KB  |  123 lines
  1.  
  2. ; Pop This Into The End Of Your Main Seg. jpe UPDATED June 4th, 1989 @ 03:12
  3.  
  4. ; Add A Show file thingy from yer Main menu or something.        Here's a clue:  if i$="3" f$="b1:usage":goto show.file
  5.  
  6. ; I also added an * if i$="-" and info(5) gosub newmo:return  * to the Main cmnd section so the sysop can update the records anytime he wants. *
  7.  
  8. ; These Mods Tested and Debugged! By ProBOARD Custom Edition GBBS @ 805-239-4292
  9.  
  10. Termin2                         <---- Just so ya know where we are
  11.  on nocar goto term5
  12.  if (not ma) or (not flag(34)) goto termin1
  13.  if ma and flag(34) input @2 \"Delete Mail (Y/[N]) ?" i$:if i$="" i$="N"
  14.  i$=left$(i$,1):ma=(i$="Y")
  15.  
  16. ; Reset Message Mod Added 03-07-89
  17.  
  18. Termin1                                 
  19.  if mn-lr<10 goto term1                         <- Change the ten to whatever
  20.  
  21.  print\"Since You Still Have "(mn-lr)" Messages"
  22.  print"Left Unread, Would You Like To Clear"
  23.  print"Your Message Counter And Start Fresh"
  24.  print"On Your Next Call? (Y/[N]) ";
  25.  get i$:if i$=chr$(13) print " "
  26.  print chr$(8)" "chr$(8);:if i$="Y" or i$="y" then lr=mn:print" Done!":else print" UnChanged!"
  27.  
  28. ; Reset Message Mod Above   The below is just from STAC and to show ya where we is here... ALSO IF THE LINE ABOVE HAS A C/R AT THE END THEN YOU BETTER CHECK FOR THAT ON LINES OVER 80 COLUMNS LONG
  29.  
  30. Term1
  31.  on nocar clear
  32.  close:clear #8
  33.  a=0:open #1,"b8:top.uploaders"
  34.  for x=1 to 10:input #1,i$,a1,a2
  35.  if (a3$=i$) and (u2=a2) x=10:next:goto nowrite
  36.  if (u1>a1) and not(a) print #8,a3$,u1,u2:a=1:goto top1
  37.  if (u1=a1) and (u2>a2) and not(a) print #8,a3$,u1,u2:a=1
  38.  
  39. Top1
  40.  if a3$=i$ next:goto top2
  41.  print #8,i$,a1,a2:next
  42.  
  43. Top2
  44.  close:if not(a) goto nowrite
  45.  kill "b8:top.uploaders":create "b8:top.uploaders"
  46.  open #1,"b8:top.uploaders":copy #8,#1:close
  47.  a=x
  48.  print\":"chr$(61,77)":"
  49.  print":  "chr$(15)"          By the way... You are one of the Top 10 Uploaders!             "chr$(14)"  :"
  50.  print":"chr$(61,77)":"\
  51.  
  52. Nowrite
  53.  
  54.  
  55. ;    -=[ Monthly Time Mod (C) By Greg Ring And John Edwards May 89 ]=-
  56.  
  57.  close:a=clock(1):f$="b1:monthly.time"
  58.  create f$:open #1,f$:position #1,128,un:input #1,o9$,o8,tt,o7:close
  59.  if o9$="" o9$=mn$
  60.  if o9$<>mn$ gosub newmo:goto fixer
  61.  o8=o8+a
  62.  
  63. Huh
  64.  if o8>=3600 then o7=o7+1:o8=o8-3600:goto huh
  65.  print \"You Have Used The System"
  66.  print"For "o7" hours, "o8/60" mins, "o8 mod 60" secs"
  67.  print"During The Month Of "o9$\"A Total To Date Of Appr "tt+o7+((o8+1200)/3600)" Hours."
  68.  open #1,f$:position #1,128,un:print #1,o9$,o8,tt,o7:close:f$="":goto bye
  69.  
  70. Fixer
  71.  print \"Fixing User Number [    ";
  72.  for xx = 1 to nu:open #1,f$:position #1,128,xx:input #1,o9$,o8,tt,o7:close
  73.  print chr$(8,4) right$("   "+str$(xx),3)"]";
  74.  o9$=mn$:tt=tt+o7+(o8/3600):o8=0:o7=0:if xx=un then o8=a
  75.  open #1,f$:position #1,128,xx:print #1,o9$,o8,tt,o7:close:next
  76.  open #1,f$:position #1,128,un:input #1,o9$,o8,tt,o7:close:goto huh
  77.  
  78. NewMo
  79.  if o9$="" o9$=date$+" @ "+time$
  80.  f$="b1:monthly.time":f1$="b1:usage":kill f1$
  81.  print\"Creating New Usage File...":create f1$
  82.  open #1,f1$:open #2,f$
  83.  print #1,"-=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=-"
  84.  print #1,chr$(32,79)
  85.  print #1,"                   ProBOARD Usage Record: "o9$
  86.  print #1,chr$(32,79)
  87.  print #1,"-=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=-"
  88.  print #1,chr$(32,79)
  89.  print #1,"     User Number        Time Used This Month        Total Time Online To Date "
  90.  print #1,chr$(45,79)
  91.  for xx=1 to nu:position #2,128,xx:input #2,o9$,o8,tt,o7
  92.  
  93. ; Thanx Elwood For A much cleaner record layout  5-25-89
  94.  
  95.  print #1,"       ";:print #1,right$("    "+str$(xx),4);:print#1,"          ";
  96.  print #1,right$("    "+str$(o7),4)+" Hours ";
  97.  print #1,right$("  "+str$(o8/60),2)+" mins, ";
  98.  print #1,right$("  "+str$(o8 mod 60),2)+" secs        Appr  ";  
  99.  print #1,right$("      "+str$(tt+o7+((o8+1200)/3600)),6)+" Hours"
  100.  next:close #2
  101.  print #1,chr$(32,79)
  102.  print #1,"-=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=- -=:*:=-":close:return
  103.  
  104. ; Monthly Time Mod Above, Updated June 4th, 1989 (C) by jpe For A.1 Computing
  105.  
  106. ; Remember To Either Add The Label Below Or Stick The Subroutine Somewhere else and remove the goto bye     jpe 05-07-89  Send $1 to 262 San Fernando Dr. Paso Robles, CA  93446     For  More...
  107.  
  108. Bye
  109.  print \"Goodbye "a1$","\"you were caller #"cn$
  110.  print \"Thank you for calling "sn$
  111.  if a print \"Connected "a/60" mins, "a mod 60" secs"
  112.  
  113. ; Listing continues as was......
  114.  
  115. ; Many More Mods Available On ProBOARD 805-239-4292 NewPass:Redwings
  116.  
  117. ; Many Many Thanks To Greg Ring For The Idea and Help Writing This! All
  118. ; Donations will be shared just specify that it's for TIMETRACKER.
  119. ; Dox by jpe May 9th 1989 For A.1 Computing
  120.  
  121. ; EOF
  122.  
  123.